home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / MOVCON.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.8 KB  |  24 lines
  1.  
  2. MOVCON $MACRO  A,B                                                              
  3.        $VAR ST                                                                  
  4.        $ASG '*' TO ST.S                                                         
  5.        $IF  B.L=0                                                               
  6.        ACTAR AR1                                                                
  7.        $ASG '*' TO B.S                                                          
  8.        $ENDIF                                                                   
  9.        $IF  A.A&$POPL    A IS LIST OF CONST                                     
  10.        $IF  B.SV=ST.SV                                                          
  11.        CALL MOVC$1       MOVE CONSTANTS                                         
  12.        REF  MOVC$1                                                              
  13.        $ELSE                                                                    
  14.        CALL MOVC$        MOVE CONSTANTS                                         
  15.        REF  MOVC$                                                               
  16.        DATA :B:          TO :B:                                                 
  17.        $ENDIF                                                                   
  18.        DATA :A.V:        LENGTH OF LIST                                         
  19.        DATA :A:          CONSTANT LIST                                          
  20.        $ELSE                                                                    
  21.        LCAC :A:                                                                 
  22.        SACL :B:,0        STORE CONSTANT                                         
  23.        $ENDIF                                                                   
  24.        $END